home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 …ember: Reference Library / Apple Developer Reference Library (December 1999) (Disk 1).iso / mac / Technical Documentation / Develop / develop Issue 19 / develop Issue 19 code / SimpliFace_V2.sea / SimpliFace_V2 / Sources / CTdebugWriteln.p < prev    next >
MacBinary  |  1992-10-18  |  7.8 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Applause Picture (image/applausePicture) ext Unsupported
1% dexvert bsdiff patch (other/bsdiffPatch) ext Unsupported
1% dexvert imgdiff patch (other/imgdiffPatch) ext Unsupported
1% dexvert MATLAB p-code (other/matlabPCode) ext Unsupported
1% dexvert WSUS Patch Storage File (other/wsusPatchStorageFile) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Oct 18 12:55:14 1992, modified Sun Oct 18 12:55:14 1992, creator 'MPS ', type ASCII, 6232 bytes "CTdebugWriteln.p" , at 0x18d8 1429 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 43 54 64 65 62 75 | 67 57 72 69 74 65 6c 6e |..CTdebu|gWriteln|
|00000010| 2e 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.p......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 18 58 00 | 00 05 95 a7 07 47 72 a7 |......X.|.....Gr.|
|00000060| 07 47 72 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Gr.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a6 1a 00 00 |........|........|
|00000080| 55 4e 49 54 20 43 54 64 | 65 62 75 67 57 72 69 74 |UNIT CTd|ebugWrit|
|00000090| 65 6c 6e 3b 0d 0d 0d 0d | 49 4e 54 45 52 46 41 43 |eln;....|INTERFAC|
|000000a0| 45 0d 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 49 6e |E...PROC|EDURE In|
|000000b0| 73 74 61 6c 6c 57 72 69 | 74 65 4c 6e 48 6f 6f 6b |stallWri|teLnHook|
|000000c0| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 53 74 61 |;..PROCE|DURE Sta|
|000000d0| 72 74 44 65 62 75 67 3b | 0d 0d 50 52 4f 43 45 44 |rtDebug;|..PROCED|
|000000e0| 55 52 45 20 45 6e 64 44 | 65 62 75 67 3b 0d 0d 50 |URE EndD|ebug;..P|
|000000f0| 52 4f 43 45 44 55 52 45 | 20 53 65 74 44 65 62 75 |ROCEDURE| SetDebu|
|00000100| 67 4c 65 76 65 6c 28 6e | 65 77 4c 65 76 65 6c 3a |gLevel(n|ewLevel:|
|00000110| 20 49 4e 54 45 47 45 52 | 29 3b 0d 0d 46 55 4e 43 | INTEGER|);..FUNC|
|00000120| 54 49 4f 4e 20 20 47 65 | 74 44 65 62 75 67 4c 65 |TION  Ge|tDebugLe|
|00000130| 76 65 6c 3a 20 49 4e 54 | 45 47 45 52 3b 0d 0d 0d |vel: INT|EGER;...|
|00000140| 0d 49 4d 50 4c 45 4d 45 | 4e 54 41 54 49 4f 4e 0d |.IMPLEME|NTATION.|
|00000150| 0d 55 53 45 53 0d 09 0d | 09 54 79 70 65 73 2c 20 |.USES...|.Types, |
|00000160| 54 72 61 70 73 2c 20 4d | 65 6d 6f 72 79 2c 20 51 |Traps, M|emory, Q|
|00000170| 75 69 63 6b 64 72 61 77 | 2c 20 0d 09 4f 53 49 6e |uickdraw|, ..OSIn|
|00000180| 74 66 2c 20 54 6f 6f 6c | 49 6e 74 66 2c 20 50 61 |tf, Tool|Intf, Pa|
|00000190| 63 6b 49 6e 74 66 2c 20 | 50 50 43 54 6f 6f 6c 62 |ckIntf, |PPCToolb|
|000001a0| 6f 78 2c 0d 09 0d 09 45 | 76 65 6e 74 73 2c 20 41 |ox,....E|vents, A|
|000001b0| 70 70 6c 65 45 76 65 6e | 74 73 2c 0d 09 0d 09 49 |ppleEven|ts,....I|
|000001c0| 6e 74 45 6e 76 2c 20 0d | 09 0d 09 50 61 73 4c 69 |ntEnv, .|...PasLi|
|000001d0| 62 49 6e 74 66 2c 0d 09 | 44 69 73 41 73 6d 4c 6f |bIntf,..|DisAsmLo|
|000001e0| 6f 6b 75 70 2c 0d 09 55 | 6e 6d 61 6e 67 6c 65 72 |okup,..U|nmangler|
|000001f0| 2c 0d 09 0d 09 41 45 72 | 65 67 69 73 74 72 79 2c |,....AEr|egistry,|
|00000200| 0d 09 0d 09 43 54 64 65 | 62 75 67 53 74 72 65 61 |....CTde|bugStrea|
|00000210| 6d 3b 0d 0d 56 41 52 0d | 0d 7b 24 53 45 54 43 20 |m;..VAR.|.{$SETC |
|00000220| 71 44 65 62 75 67 50 72 | 6f 63 45 6e 64 73 3a 3d |qDebugPr|ocEnds:=|
|00000230| 20 54 52 55 45 7d 0d 0d | 09 67 44 65 62 75 67 50 | TRUE}..|.gDebugP|
|00000240| 72 6f 63 4e 65 73 74 3a | 20 09 49 4e 54 45 47 45 |rocNest:| .INTEGE|
|00000250| 52 3b 0d 09 67 44 65 62 | 75 67 57 72 69 74 65 6c |R;..gDeb|ugWritel|
|00000260| 6e 3a 09 09 49 4e 54 45 | 47 45 52 3b 0d 0d 7b 2d |n:..INTE|GER;..{-|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002d0| 2d 7d 0d 09 0d 09 7b 24 | 50 75 73 68 7d 20 7b 24 |-}....{$|Push} {$|
|000002e0| 4a 2b 7d 0d 09 50 46 49 | 4c 45 4e 41 4d 45 3a 09 |J+}..PFI|LENAME:.|
|000002f0| 09 09 53 74 72 32 35 35 | 3b 09 09 09 09 09 09 09 |..Str255|;.......|
|00000300| 7b 20 4e 61 6d 65 20 6f | 66 20 66 69 6c 65 20 74 |{ Name o|f file t|
|00000310| 6f 20 69 6e 74 65 72 63 | 65 70 74 20 66 6f 72 20 |o interc|ept for |
|00000320| 49 4f 20 7d 0d 0d 09 70 | 44 65 62 75 67 57 69 6e |IO }...p|DebugWin|
|00000330| 64 6f 77 3a 09 09 57 69 | 6e 64 6f 77 50 74 72 3b |dow:..Wi|ndowPtr;|
|00000340| 09 09 09 09 09 09 7b 20 | 74 68 65 20 77 69 6e 64 |......{ |the wind|
|00000350| 6f 77 20 6f 62 6a 65 63 | 74 20 74 68 61 74 20 63 |ow objec|t that c|
|00000360| 6f 6e 74 61 69 6e 73 20 | 74 68 65 20 64 65 62 75 |ontains |the debu|
|00000370| 67 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |g.......|........|
|00000380| 20 77 69 6e 64 6f 77 20 | 7d 0d 09 7b 24 50 6f 70 | window |}..{$Pop|
|00000390| 7d 0d 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}..{----|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003f0| 2d 2d 2d 2d 2d 2d 7d 0d | 0d 7b 24 53 20 4d 61 69 |------}.|.{$S Mai|
|00000400| 6e 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 44 65 76 |n}..FUNC|TION Dev|
|00000410| 46 41 63 63 65 73 73 28 | 66 4e 61 6d 65 3a 20 55 |FAccess(|fName: U|
|00000420| 4e 49 56 20 50 74 72 3b | 0d 09 09 09 09 09 6f 70 |NIV Ptr;|......op|
|00000430| 43 6f 64 65 3a 20 4c 6f | 6e 67 69 6e 74 3b 0d 09 |Code: Lo|ngint;..|
|00000440| 09 09 09 09 61 72 67 3a | 20 55 4e 49 56 20 4c 6f |....arg:| UNIV Lo|
|00000450| 6e 67 69 6e 74 29 3a 20 | 4c 6f 6e 67 69 6e 74 3b |ngint): |Longint;|
|00000460| 0d 09 43 3b 20 45 58 54 | 45 52 4e 41 4c 3b 0d 0d |..C; EXT|ERNAL;..|
|00000470| 46 55 4e 43 54 49 4f 4e | 20 44 65 76 43 6c 6f 73 |FUNCTION| DevClos|
|00000480| 65 28 66 64 65 73 63 3a | 20 55 4e 49 56 20 4c 6f |e(fdesc:| UNIV Lo|
|00000490| 6e 67 69 6e 74 29 3a 20 | 4c 6f 6e 67 69 6e 74 3b |ngint): |Longint;|
|000004a0| 0d 09 43 3b 20 45 58 54 | 45 52 4e 41 4c 3b 0d 0d |..C; EXT|ERNAL;..|
|000004b0| 46 55 4e 43 54 49 4f 4e | 20 44 65 76 52 65 61 64 |FUNCTION| DevRead|
|000004c0| 28 66 64 65 73 63 3a 20 | 55 4e 49 56 20 4c 6f 6e |(fdesc: |UNIV Lon|
|000004d0| 67 69 6e 74 3b 0d 09 09 | 09 09 20 62 75 66 70 3a |gint;...|.. bufp:|
|000004e0| 20 55 4e 49 56 20 4c 6f | 6e 67 69 6e 74 3b 0d 09 | UNIV Lo|ngint;..|
|000004f0| 09 09 09 20 63 6f 75 6e | 74 3a 20 4c 6f 6e 67 69 |... coun|t: Longi|
|00000500| 6e 74 29 3a 20 4c 6f 6e | 67 69 6e 74 3b 0d 09 43 |nt): Lon|gint;..C|
|00000510| 3b 20 45 58 54 45 52 4e | 41 4c 3b 0d 0d 46 55 4e |; EXTERN|AL;..FUN|
|00000520| 43 54 49 4f 4e 20 44 65 | 76 57 72 69 74 65 28 66 |CTION De|vWrite(f|
|00000530| 64 65 73 63 3a 20 55 4e | 49 56 20 4c 6f 6e 67 69 |desc: UN|IV Longi|
|00000540| 6e 74 3b 0d 09 09 09 09 | 20 20 62 75 66 70 3a 20 |nt;.....|  bufp: |
|00000550| 55 4e 49 56 20 4c 6f 6e | 67 69 6e 74 3b 0d 09 09 |UNIV Lon|gint;...|
|00000560| 09 09 20 20 63 6f 75 6e | 74 3a 20 4c 6f 6e 67 69 |..  coun|t: Longi|
|00000570| 6e 74 29 3a 20 4c 6f 6e | 67 69 6e 74 3b 0d 09 43 |nt): Lon|gint;..C|
|00000580| 3b 20 45 58 54 45 52 4e | 41 4c 3b 0d 0d 46 55 4e |; EXTERN|AL;..FUN|
|00000590| 43 54 49 4f 4e 20 44 65 | 76 49 6f 63 74 6c 28 66 |CTION De|vIoctl(f|
|000005a0| 64 65 73 63 3a 20 55 4e | 49 56 20 4c 6f 6e 67 69 |desc: UN|IV Longi|
|000005b0| 6e 74 3b 0d 09 09 09 09 | 20 20 72 65 71 75 65 73 |nt;.....|  reques|
|000005c0| 74 3a 20 4c 6f 6e 67 69 | 6e 74 3b 0d 09 09 09 09 |t: Longi|nt;.....|
|000005d0| 20 20 61 72 67 3a 20 55 | 4e 49 56 20 4c 6f 6e 67 |  arg: U|NIV Long|
|000005e0| 69 6e 74 29 3a 20 4c 6f | 6e 67 69 6e 74 3b 0d 09 |int): Lo|ngint;..|
|000005f0| 43 3b 20 45 58 54 45 52 | 4e 41 4c 3b 0d 0d 46 55 |C; EXTER|NAL;..FU|
|00000600| 4e 43 54 49 4f 4e 20 5f | 61 64 64 44 65 76 48 61 |NCTION _|addDevHa|
|00000610| 6e 64 6c 65 72 28 73 6c | 6f 74 2c 20 64 76 4e 61 |ndler(sl|ot, dvNa|
|00000620| 6d 65 2c 20 64 76 46 41 | 63 63 65 73 73 2c 20 64 |me, dvFA|ccess, d|
|00000630| 76 43 6c 6f 73 65 2c 20 | 64 76 52 65 61 64 2c 20 |vClose, |dvRead, |
|00000640| 64 76 57 72 69 74 65 2c | 0d 09 09 09 09 09 09 64 |dvWrite,|.......d|
|00000650| 76 49 6f 63 74 6c 3a 20 | 4c 6f 6e 67 69 6e 74 29 |vIoctl: |Longint)|
|00000660| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 09 43 3b 20 45 |: Longin|t;..C; E|
|00000670| 58 54 45 52 4e 41 4c 3b | 0d 0d 7b 2d 2d 2d 2d 2d |XTERNAL;|..{-----|
|00000680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 0d |--------|-----}..|
|000006e0| 46 55 4e 43 54 49 4f 4e | 20 53 65 74 47 65 74 50 |FUNCTION| SetGetP|
|000006f0| 72 6f 63 28 74 68 65 47 | 65 74 50 72 6f 63 3a 20 |roc(theG|etProc: |
|00000700| 50 72 6f 63 50 74 72 29 | 3a 20 50 72 6f 63 50 74 |ProcPtr)|: ProcPt|
|00000710| 72 3b 0d 09 45 58 54 45 | 52 4e 41 4c 3b 0d 0d 46 |r;..EXTE|RNAL;..F|
|00000720| 55 4e 43 54 49 4f 4e 20 | 53 65 74 50 75 74 50 72 |UNCTION |SetPutPr|
|00000730| 6f 63 28 74 68 65 50 75 | 74 50 72 6f 63 3a 20 50 |oc(thePu|tProc: P|
|00000740| 72 6f 63 50 74 72 29 3a | 20 50 72 6f 63 50 74 72 |rocPtr):| ProcPtr|
|00000750| 3b 0d 09 45 58 54 45 52 | 4e 41 4c 3b 0d 0d 7b 2d |;..EXTER|NAL;..{-|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007c0| 2d 7d 0d 0d 7b 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |-}..{***|********|
|000007d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000810| 2a 2a 7d 0d 7b 0d 20 20 | 20 20 46 6f 72 20 64 65 |**}.{.  |  For de|
|00000820| 62 75 67 67 69 6e 67 20 | 70 75 72 70 6f 73 65 73 |bugging |purposes|
|00000830| 20 6f 6e 6c 79 20 2d 20 | 55 74 69 6c 69 74 79 20 | only - |Utility |
|00000840| 52 6f 75 74 69 6e 65 73 | 0d 7d 0d 0d 7b 24 50 75 |Routines|.}..{$Pu|
|00000850| 73 68 7d 20 7b 24 5a 2b | 7d 20 7b 24 25 2b 7d 0d |sh} {$Z+|} {$%+}.|
|00000860| 09 0d 09 0d 09 46 55 4e | 43 54 49 4f 4e 20 47 65 |.....FUN|CTION Ge|
|00000870| 74 50 61 72 6d 42 6c 6f | 63 6b 50 74 72 3a 20 4c |tParmBlo|ckPtr: L|
|00000880| 4f 4e 47 49 4e 54 3b 0d | 09 09 49 4e 4c 49 4e 45 |ONGINT;.|..INLINE|
|00000890| 20 24 32 45 38 38 3b 09 | 09 09 09 09 09 09 09 7b | $2E88;.|.......{|
|000008a0| 20 4d 4f 56 45 2e 4c 20 | 41 30 2c 28 41 37 29 20 | MOVE.L |A0,(A7) |
|000008b0| 7d 0d 09 7b 20 46 6f 72 | 6d 65 72 6c 79 2c 20 25 |}..{ For|merly, %|
|000008c0| 5f 47 65 74 41 30 2e 20 | 52 65 74 75 72 6e 20 74 |_GetA0. |Return t|
|000008d0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 72 65 67 69 |he value| of regi|
|000008e0| 73 74 65 72 20 41 30 2e | 20 20 55 73 65 66 75 6c |ster A0.|  Useful|
|000008f0| 20 66 6f 72 20 67 65 74 | 74 69 6e 67 20 74 68 65 | for get|ting the|
|00000900| 20 70 6f 69 6e 74 65 72 | 0d 09 74 6f 20 74 68 65 | pointer|..to the|
|00000910| 20 70 61 72 61 6d 65 74 | 65 72 20 62 6c 6f 63 6b | paramet|er block|
|00000920| 20 66 72 6f 6d 20 61 20 | 56 42 4c 20 74 61 73 6b | from a |VBL task|
|00000930| 20 6f 72 20 61 20 63 6f | 6d 70 6c 65 74 69 6f 6e | or a co|mpletion|
|00000940| 20 72 6f 75 74 69 6e 65 | 2e 20 7d 0d 0d 09 46 55 | routine|. }...FU|
|00000950| 4e 43 54 49 4f 4e 20 47 | 65 74 41 35 3a 20 4c 4f |NCTION G|etA5: LO|
|00000960| 4e 47 49 4e 54 3b 0d 09 | 09 49 4e 4c 49 4e 45 20 |NGINT;..|.INLINE |
|00000970| 24 32 45 38 44 3b 09 09 | 09 09 09 09 09 09 7b 20 |$2E8D;..|......{ |
|00000980| 4d 4f 56 45 2e 4c 20 41 | 35 2c 28 41 37 29 20 7d |MOVE.L A|5,(A7) }|
|00000990| 0d 09 7b 20 46 6f 72 6d | 65 72 6c 79 2c 20 25 5f |..{ Form|erly, %_|
|000009a0| 47 65 74 41 35 2e 20 52 | 65 74 75 72 6e 20 74 68 |GetA5. R|eturn th|
|000009b0| 65 20 76 61 6c 75 65 20 | 6f 66 20 72 65 67 69 73 |e value |of regis|
|000009c0| 74 65 72 20 41 35 2e 20 | 55 73 65 66 75 6c 20 66 |ter A5. |Useful f|
|000009d0| 6f 72 20 67 65 74 74 69 | 6e 67 20 74 68 65 20 69 |or getti|ng the i|
|000009e0| 6d 6d 65 64 69 61 74 65 | 20 76 61 6c 75 65 0d 09 |mmediate| value..|
|000009f0| 6f 66 20 41 35 20 77 68 | 69 63 68 20 69 73 20 6e |of A5 wh|ich is n|
|00000a00| 6f 74 20 61 6c 77 61 79 | 73 20 74 68 65 20 73 61 |ot alway|s the sa|
|00000a10| 6d 65 20 61 73 20 43 75 | 72 72 65 6e 74 41 35 2e |me as Cu|rrentA5.|
|00000a20| 20 20 47 65 6e 65 72 61 | 6c 6c 79 20 61 20 70 6f |  Genera|lly a po|
|00000a30| 69 6e 74 65 72 20 74 6f | 20 74 68 65 20 70 72 6f |inter to| the pro|
|00000a40| 67 72 61 6d 27 73 0d 09 | 67 6c 6f 62 61 6c 20 61 |gram's..|global a|
|00000a50| 72 65 61 20 61 6e 64 20 | 6a 75 6d 70 20 74 61 62 |rea and |jump tab|
|00000a60| 6c 65 2e 20 7d 0d 0d 09 | 46 55 4e 43 54 49 4f 4e |le. }...|FUNCTION|
|00000a70| 20 47 65 74 43 75 72 53 | 74 61 63 6b 46 72 61 6d | GetCurS|tackFram|
|00000a80| 65 50 74 72 3a 20 50 74 | 72 3b 0d 09 09 49 4e 4c |ePtr: Pt|r;...INL|
|00000a90| 49 4e 45 20 24 32 45 38 | 45 3b 09 09 09 09 09 09 |INE $2E8|E;......|
|00000aa0| 09 09 7b 20 4d 4f 56 45 | 2e 4c 20 41 36 2c 28 41 |..{ MOVE|.L A6,(A|
|00000ab0| 37 29 20 7d 0d 09 7b 20 | 46 6f 72 6d 65 72 6c 79 |7) }..{ |Formerly|
|00000ac0| 2c 20 25 5f 47 65 74 41 | 36 2e 20 52 65 74 75 72 |, %_GetA|6. Retur|
|00000ad0| 6e 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 72 |n the va|lue of r|
|00000ae0| 65 67 69 73 74 65 72 20 | 41 36 2e 20 20 55 73 75 |egister |A6.  Usu|
|00000af0| 61 6c 6c 79 20 61 20 70 | 6f 69 6e 74 65 72 20 74 |ally a p|ointer t|
|00000b00| 6f 20 74 68 65 20 6c 6f | 63 61 6c 20 73 74 61 63 |o the lo|cal stac|
|00000b10| 6b 0d 09 66 72 61 6d 65 | 2e 09 4d 6f 73 74 20 6f |k..frame|..Most o|
|00000b20| 66 74 65 6e 20 75 73 65 | 64 20 74 6f 20 66 69 6e |ften use|d to fin|
|00000b30| 64 20 6f 75 74 20 74 68 | 65 20 63 61 6c 6c 65 72 |d out th|e caller|
|00000b40| 27 73 20 6e 61 6d 65 20 | 77 68 65 6e 20 69 6e 76 |'s name |when inv|
|00000b50| 6f 6b 69 6e 67 20 61 20 | 64 65 62 75 67 67 69 6e |oking a |debuggin|
|00000b60| 67 20 72 6f 75 74 69 6e | 65 2e 20 7d 0d 0d 09 46 |g routin|e. }...F|
|00000b70| 55 4e 43 54 49 4f 4e 20 | 47 65 74 43 75 72 53 74 |UNCTION |GetCurSt|
|00000b80| 61 63 6b 54 6f 70 3a 20 | 50 74 72 3b 0d 09 09 49 |ackTop: |Ptr;...I|
|00000b90| 4e 4c 49 4e 45 20 24 32 | 45 38 46 3b 09 09 09 09 |NLINE $2|E8F;....|
|00000ba0| 09 09 09 09 7b 20 4d 4f | 56 45 2e 4c 20 41 37 2c |....{ MO|VE.L A7,|
|00000bb0| 28 41 37 29 20 7d 0d 09 | 7b 20 46 6f 72 6d 65 72 |(A7) }..|{ Former|
|00000bc0| 6c 79 2c 20 25 5f 47 65 | 74 41 37 2e 20 52 65 74 |ly, %_Ge|tA7. Ret|
|00000bd0| 75 72 6e 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |urn the |value of|
|00000be0| 20 72 65 67 69 73 74 65 | 72 20 41 37 2e 20 20 55 | registe|r A7.  U|
|00000bf0| 73 75 61 6c 6c 79 20 74 | 68 65 20 74 6f 70 20 6f |sually t|he top o|
|00000c00| 66 20 73 74 61 63 6b 2e | 20 20 55 73 65 66 75 6c |f stack.|  Useful|
|00000c10| 0d 09 66 6f 72 20 73 74 | 61 63 6b 20 73 6e 69 66 |..for st|ack snif|
|00000c20| 66 69 6e 67 20 28 6e 6f | 74 20 61 20 63 72 69 6d |fing (no|t a crim|
|00000c30| 65 29 2e 20 7d 0d 0d 09 | 50 52 4f 43 45 44 55 52 |e). }...|PROCEDUR|
|00000c40| 45 20 47 65 74 50 72 6f | 63 4e 61 6d 65 28 70 70 |E GetPro|cName(pp|
|00000c50| 63 3a 20 4c 6f 6e 67 69 | 6e 74 3b 0d 09 09 09 09 |c: Longi|nt;.....|
|00000c60| 09 09 20 20 56 41 52 20 | 70 72 6f 63 4e 61 6d 65 |..  VAR |procName|
|00000c70| 3a 20 53 74 72 32 35 35 | 29 3b 0d 09 7b 20 47 65 |: Str255|);..{ Ge|
|00000c80| 74 50 72 6f 63 4e 61 6d | 65 20 72 65 74 75 72 6e |tProcNam|e return|
|00000c90| 73 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |s the na|me of th|
|00000ca0| 65 20 70 72 6f 63 65 64 | 75 72 65 20 6f 72 20 66 |e proced|ure or f|
|00000cb0| 75 6e 63 74 69 6f 6e 20 | 69 6e 0d 09 77 68 69 63 |unction |in..whic|
|00000cc0| 68 20 70 70 63 20 70 6f | 69 6e 74 73 2e 20 20 7d |h ppc po|ints.  }|
|00000cd0| 0d 09 56 41 52 0d 09 09 | 70 63 2c 20 6e 65 78 74 |..VAR...|pc, next|
|00000ce0| 50 43 2c 20 6c 69 6d 69 | 74 3a 09 50 74 72 3b 0d |PC, limi|t:.Ptr;.|
|00000cf0| 09 09 74 6d 70 4e 61 6d | 65 3a 09 09 09 53 74 72 |..tmpNam|e:...Str|
|00000d00| 32 35 35 3b 0d 09 42 45 | 47 49 4e 0d 09 09 70 63 |255;..BE|GIN...pc|
|00000d10| 20 3a 3d 20 48 61 6e 64 | 6c 65 28 70 70 63 29 5e | := Hand|le(ppc)^|
|00000d20| 3b 0d 09 09 49 46 20 28 | 6f 72 64 28 70 63 29 20 |;...IF (|ord(pc) |
|00000d30| 3c 3e 20 30 29 20 26 20 | 4e 4f 54 20 4f 64 64 28 |<> 0) & |NOT Odd(|
|00000d40| 6f 72 64 28 70 63 29 29 | 20 54 48 45 4e 0d 09 09 |ord(pc))| THEN...|
|00000d50| 09 42 45 47 49 4e 0d 09 | 09 09 6c 69 6d 69 74 20 |.BEGIN..|..limit |
|00000d60| 3a 3d 20 50 74 72 28 6f | 72 64 28 70 63 29 20 2b |:= Ptr(o|rd(pc) +|
|00000d70| 20 33 32 37 36 37 29 3b | 0d 09 09 09 57 48 49 4c | 32767);|....WHIL|
|00000d80| 45 20 28 65 6e 64 4f 66 | 4d 6f 64 75 6c 65 28 70 |E (endOf|Module(p|
|00000d90| 63 2c 20 6c 69 6d 69 74 | 2c 20 40 70 72 6f 63 4e |c, limit|, @procN|
|00000da0| 61 6d 65 2c 20 6e 65 78 | 74 50 43 29 20 3d 20 4e |ame, nex|tPC) = N|
|00000db0| 49 4c 29 20 44 4f 0d 09 | 09 09 09 42 45 47 49 4e |IL) DO..|...BEGIN|
|00000dc0| 0d 09 09 09 09 49 46 20 | 6f 72 64 28 70 63 29 20 |.....IF |ord(pc) |
|00000dd0| 3e 3d 20 6f 72 64 28 6c | 69 6d 69 74 29 20 54 48 |>= ord(l|imit) TH|
|00000de0| 45 4e 0d 09 09 09 09 09 | 42 45 47 49 4e 0d 09 09 |EN......|BEGIN...|
|00000df0| 09 09 09 70 72 6f 63 4e | 61 6d 65 20 3a 3d 20 27 |...procN|ame := '|
|00000e00| 27 3b 0d 09 09 09 09 09 | 4c 45 41 56 45 3b 0d 09 |';......|LEAVE;..|
|00000e10| 09 09 09 09 45 4e 44 0d | 09 09 09 09 45 4c 53 45 |....END.|....ELSE|
|00000e20| 0d 09 09 09 09 09 70 63 | 20 3a 3d 20 50 74 72 28 |......pc| := Ptr(|
|00000e30| 6f 72 64 28 70 63 29 20 | 2b 20 32 29 3b 0d 09 09 |ord(pc) |+ 2);...|
|00000e40| 09 09 45 4e 44 3b 0d 09 | 0d 09 09 09 45 4e 44 0d |..END;..|....END.|
|00000e50| 09 09 45 4c 53 45 0d 09 | 09 09 42 45 47 49 4e 0d |..ELSE..|..BEGIN.|
|00000e60| 09 09 09 70 72 6f 63 4e | 61 6d 65 20 3a 3d 20 27 |...procN|ame := '|
|00000e70| 27 3b 0d 09 09 09 45 4e | 44 3b 0d 09 09 49 46 20 |';....EN|D;...IF |
|00000e80| 70 72 6f 63 4e 61 6d 65 | 20 3c 3e 20 27 27 20 54 |procName| <> '' T|
|00000e90| 48 45 4e 0d 09 09 09 42 | 45 47 49 4e 0d 09 09 09 |HEN....B|EGIN....|
|00000ea0| 49 46 20 55 6e 6d 61 6e | 67 6c 65 28 40 74 6d 70 |IF Unman|gle(@tmp|
|00000eb0| 4e 61 6d 65 2c 20 40 70 | 72 6f 63 4e 61 6d 65 2c |Name, @p|rocName,|
|00000ec0| 20 32 35 35 29 20 3e 20 | 30 20 54 48 45 4e 0d 09 | 255) > |0 THEN..|
|00000ed0| 09 09 09 70 72 6f 63 4e | 61 6d 65 3a 3d 20 74 6d |...procN|ame:= tm|
|00000ee0| 70 4e 61 6d 65 3b 0d 09 | 09 09 45 4e 44 3b 0d 09 |pName;..|..END;..|
|00000ef0| 45 4e 44 3b 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |END;...P|ROCEDURE|
|00000f00| 20 44 75 6d 70 46 75 6e | 63 49 6e 66 6f 28 6d 73 | DumpFun|cInfo(ms|
|00000f10| 67 3a 20 53 74 72 32 35 | 35 3b 20 61 50 4c 69 6e |g: Str25|5; aPLin|
|00000f20| 6b 2c 20 61 50 70 63 3a | 20 4c 6f 6e 67 69 6e 74 |k, aPpc:| Longint|
|00000f30| 29 3b 0d 09 56 41 52 0d | 09 09 70 4e 61 6d 65 3a |);..VAR.|..pName:|
|00000f40| 09 53 74 72 32 35 35 3b | 0d 09 42 45 47 49 4e 0d |.Str255;|..BEGIN.|
|00000f50| 09 09 47 65 74 50 72 6f | 63 4e 61 6d 65 28 61 50 |..GetPro|cName(aP|
|00000f60| 70 63 2c 20 70 4e 61 6d | 65 29 3b 0d 09 09 0d 09 |pc, pNam|e);.....|
|00000f70| 09 53 74 72 4c 69 6e 65 | 54 6f 44 65 62 75 67 67 |.StrLine|ToDebugg|
|00000f80| 65 72 28 63 6f 6e 63 61 | 74 28 6d 73 67 2c 20 70 |er(conca|t(msg, p|
|00000f90| 4e 61 6d 65 29 29 3b 0d | 09 09 0d 09 09 50 4c 46 |Name));.|.....PLF|
|00000fa0| 6c 75 73 68 28 6f 75 74 | 70 75 74 29 3b 0d 09 45 |lush(out|put);..E|
|00000fb0| 4e 44 3b 0d 09 0d 09 50 | 52 4f 43 45 44 55 52 45 |ND;....P|ROCEDURE|
|00000fc0| 20 44 65 62 75 67 4e 65 | 73 74 28 6f 6e 45 6e 74 | DebugNe|st(onEnt|
|00000fd0| 72 79 3a 20 42 4f 4f 4c | 45 41 4e 29 3b 0d 09 42 |ry: BOOL|EAN);..B|
|00000fe0| 45 47 49 4e 0d 09 09 49 | 46 20 6f 6e 45 6e 74 72 |EGIN...I|F onEntr|
|00000ff0| 79 20 54 48 45 4e 0d 09 | 09 09 67 44 65 62 75 67 |y THEN..|..gDebug|
|00001000| 50 72 6f 63 4e 65 73 74 | 3a 3d 20 67 44 65 62 75 |ProcNest|:= gDebu|
|00001010| 67 50 72 6f 63 4e 65 73 | 74 20 2b 20 31 3b 0d 0d |gProcNes|t + 1;..|
|00001020| 7b 24 49 46 43 20 4e 4f | 54 20 71 44 65 62 75 67 |{$IFC NO|T qDebug|
|00001030| 50 72 6f 63 45 6e 64 73 | 7d 09 09 09 0d 09 09 49 |ProcEnds|}......I|
|00001040| 46 20 6f 6e 45 6e 74 72 | 79 20 54 48 45 4e 0d 7b |F onEntr|y THEN.{|
|00001050| 24 45 4e 44 43 7d 0d 09 | 09 09 53 74 72 32 35 35 |$ENDC}..|..Str255|
|00001060| 54 6f 44 65 62 75 67 67 | 65 72 28 63 6f 70 79 28 |ToDebugg|er(copy(|
|00001070| 27 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |'.......|........|
|00001080| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 27 |........|.......'|
|00001090| 2c 20 31 2c 20 67 44 65 | 62 75 67 50 72 6f 63 4e |, 1, gDe|bugProcN|
|000010a0| 65 73 74 29 29 3b 0d 09 | 09 09 0d 09 09 49 46 20 |est));..|.....IF |
|000010b0| 4e 4f 54 20 6f 6e 45 6e | 74 72 79 20 54 48 45 4e |NOT onEn|try THEN|
|000010c0| 0d 09 09 09 67 44 65 62 | 75 67 50 72 6f 63 4e 65 |....gDeb|ugProcNe|
|000010d0| 73 74 3a 3d 20 67 44 65 | 62 75 67 50 72 6f 63 4e |st:= gDe|bugProcN|
|000010e0| 65 73 74 20 2d 20 31 3b | 0d 09 45 4e 44 3b 0d 09 |est - 1;|..END;..|
|000010f0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 25 5f 42 50 |..PROCED|URE %_BP|
|00001100| 3b 0d 09 56 41 52 0d 09 | 09 4f 6c 64 41 35 3a 09 |;..VAR..|.OldA5:.|
|00001110| 09 09 09 4c 6f 6e 67 69 | 6e 74 3b 0d 09 42 45 47 |...Longi|nt;..BEG|
|00001120| 49 4e 0d 09 7b 20 4f 6c | 64 41 35 20 3a 3d 20 53 |IN..{ Ol|dA5 := S|
|00001130| 65 74 43 75 72 72 65 6e | 74 41 35 3b 20 7d 09 09 |etCurren|tA5; }..|
|00001140| 09 09 09 09 09 09 7b 7d | 0d 09 0d 09 44 65 62 75 |......{}|....Debu|
|00001150| 67 4e 65 73 74 28 54 52 | 55 45 29 3b 0d 09 44 75 |gNest(TR|UE);..Du|
|00001160| 6d 70 46 75 6e 63 49 6e | 66 6f 28 27 2d 3e 20 27 |mpFuncIn|fo('-> '|
|00001170| 2c 20 0d 09 09 09 09 20 | 4f 72 64 34 28 47 65 74 |, ..... |Ord4(Get|
|00001180| 43 75 72 53 74 61 63 6b | 46 72 61 6d 65 50 74 72 |CurStack|FramePtr|
|00001190| 29 2c 20 4f 72 64 34 28 | 47 65 74 43 75 72 53 74 |), Ord4(|GetCurSt|
|000011a0| 61 63 6b 46 72 61 6d 65 | 50 74 72 29 20 2b 20 34 |ackFrame|Ptr) + 4|
|000011b0| 29 3b 0d 09 0d 09 7b 20 | 4f 6c 64 41 35 20 3a 3d |);....{ |OldA5 :=|
|000011c0| 20 53 65 74 41 35 28 4f | 6c 64 41 35 29 3b 20 7d | SetA5(O|ldA5); }|
|000011d0| 09 09 09 09 09 09 09 09 | 7b 7d 0d 09 45 4e 44 3b |........|{}..END;|
|000011e0| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 25 5f 45 |...PROCE|DURE %_E|
|000011f0| 50 3b 0d 09 56 41 52 0d | 09 09 4f 6c 64 41 35 3a |P;..VAR.|..OldA5:|
|00001200| 09 09 09 09 4c 6f 6e 67 | 69 6e 74 3b 0d 09 42 45 |....Long|int;..BE|
|00001210| 47 49 4e 0d 09 7b 20 4f | 6c 64 41 35 20 3a 3d 20 |GIN..{ O|ldA5 := |
|00001220| 53 65 74 43 75 72 72 65 | 6e 74 41 35 3b 20 7d 09 |SetCurre|ntA5; }.|
|00001230| 09 09 09 09 09 09 09 7b | 7d 0d 09 44 65 62 75 67 |.......{|}..Debug|
|00001240| 4e 65 73 74 28 46 41 4c | 53 45 29 3b 0d 0d 7b 24 |Nest(FAL|SE);..{$|
|00001250| 49 46 43 20 71 44 65 62 | 75 67 50 72 6f 63 45 6e |IFC qDeb|ugProcEn|
|00001260| 64 73 7d 09 09 09 0d 09 | 44 75 6d 70 46 75 6e 63 |ds}.....|DumpFunc|
|00001270| 49 6e 66 6f 28 27 3c 2d | 20 27 2c 20 0d 09 09 09 |Info('<-| ', ....|
|00001280| 09 20 4f 72 64 34 28 47 | 65 74 43 75 72 53 74 61 |. Ord4(G|etCurSta|
|00001290| 63 6b 46 72 61 6d 65 50 | 74 72 29 2c 20 4f 72 64 |ckFrameP|tr), Ord|
|000012a0| 34 28 47 65 74 43 75 72 | 53 74 61 63 6b 46 72 61 |4(GetCur|StackFra|
|000012b0| 6d 65 50 74 72 29 20 2b | 20 34 29 3b 0d 7b 24 45 |mePtr) +| 4);.{$E|
|000012c0| 4e 44 43 7d 0d 0d 09 7b | 20 4f 6c 64 41 35 20 3a |NDC}...{| OldA5 :|
|000012d0| 3d 20 53 65 74 41 35 28 | 4f 6c 64 41 35 29 3b 20 |= SetA5(|OldA5); |
|000012e0| 7d 09 09 09 09 09 09 09 | 09 7b 7d 0d 09 45 4e 44 |}.......|.{}..END|
|000012f0| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 25 5f |;...PROC|EDURE %_|
|00001300| 45 58 3b 0d 09 56 41 52 | 0d 09 09 4f 6c 64 41 35 |EX;..VAR|...OldA5|
|00001310| 3a 09 09 09 09 4c 6f 6e | 67 69 6e 74 3b 0d 09 42 |:....Lon|gint;..B|
|00001320| 45 47 49 4e 0d 09 7b 20 | 4f 6c 64 41 35 20 3a 3d |EGIN..{ |OldA5 :=|
|00001330| 20 53 65 74 43 75 72 72 | 65 6e 74 41 35 3b 20 7d | SetCurr|entA5; }|
|00001340| 09 09 09 09 09 09 09 09 | 7b 7d 0d 09 44 65 62 75 |........|{}..Debu|
|00001350| 67 4e 65 73 74 28 46 41 | 4c 53 45 29 3b 0d 0d 7b |gNest(FA|LSE);..{|
|00001360| 24 49 46 43 20 71 44 65 | 62 75 67 50 72 6f 63 45 |$IFC qDe|bugProcE|
|00001370| 6e 64 73 7d 09 09 09 0d | 09 44 75 6d 70 46 75 6e |nds}....|.DumpFun|
|00001380| 63 49 6e 66 6f 28 27 3c | 78 20 27 2c 20 0d 09 09 |cInfo('<|x ', ...|
|00001390| 09 09 20 4f 72 64 34 28 | 47 65 74 43 75 72 53 74 |.. Ord4(|GetCurSt|
|000013a0| 61 63 6b 46 72 61 6d 65 | 50 74 72 29 2c 20 4f 72 |ackFrame|Ptr), Or|
|000013b0| 64 34 28 47 65 74 43 75 | 72 53 74 61 63 6b 46 72 |d4(GetCu|rStackFr|
|000013c0| 61 6d 65 50 74 72 29 20 | 2b 20 34 29 3b 0d 7b 24 |amePtr) |+ 4);.{$|
|000013d0| 45 4e 44 43 7d 0d 0d 09 | 7b 20 4f 6c 64 41 35 20 |ENDC}...|{ OldA5 |
|000013e0| 3a 3d 20 53 65 74 41 35 | 28 4f 6c 64 41 35 29 3b |:= SetA5|(OldA5);|
|000013f0| 20 7d 09 09 09 09 09 09 | 09 09 7b 7d 0d 09 45 4e | }......|..{}..EN|
|00001400| 44 3b 0d 09 0d 7b 24 50 | 6f 70 7d 0d 0d 7b 2a 2a |D;...{$P|op}..{**|
|00001410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 7d 0d 0d 50 52 |********|***}..PR|
|00001460| 4f 43 45 44 55 52 45 20 | 44 65 62 75 67 57 72 69 |OCEDURE |DebugWri|
|00001470| 74 65 4c 6e 28 74 65 78 | 74 42 75 66 3a 20 50 74 |teLn(tex|tBuf: Pt|
|00001480| 72 3b 0d 09 09 09 09 09 | 20 20 20 62 79 74 65 43 |r;......|   byteC|
|00001490| 6f 75 6e 74 3a 20 49 4e | 54 45 47 45 52 29 3b 0d |ount: IN|TEGER);.|
|000014a0| 42 45 47 49 4e 0d 09 49 | 46 20 67 44 65 62 75 67 |BEGIN..I|F gDebug|
|000014b0| 57 72 69 74 65 6c 6e 20 | 3e 20 30 20 54 48 45 4e |Writeln |> 0 THEN|
|000014c0| 0d 09 09 53 74 72 65 61 | 6d 54 6f 44 65 62 75 67 |...Strea|mToDebug|
|000014d0| 67 65 72 28 74 65 78 74 | 42 75 66 2c 20 62 79 74 |ger(text|Buf, byt|
|000014e0| 65 43 6f 75 6e 74 29 3b | 0d 45 4e 44 3b 0d 0d 0d |eCount);|.END;...|
|000014f0| 46 55 4e 43 54 49 4f 4e | 20 44 65 62 75 67 52 65 |FUNCTION| DebugRe|
|00001500| 61 64 4c 6e 28 62 75 66 | 66 65 72 3a 20 50 74 72 |adLn(buf|fer: Ptr|
|00001510| 3b 0d 09 09 09 09 09 20 | 62 79 74 65 43 6f 75 6e |;...... |byteCoun|
|00001520| 74 3a 20 49 4e 54 45 47 | 45 52 29 3a 20 4c 6f 6e |t: INTEG|ER): Lon|
|00001530| 67 69 6e 74 3b 0d 42 45 | 47 49 4e 0d 09 44 65 62 |gint;.BE|GIN..Deb|
|00001540| 75 67 52 65 61 64 4c 6e | 3a 3d 20 30 3b 0d 45 4e |ugReadLn|:= 0;.EN|
|00001550| 44 3b 0d 0d 0d 50 52 4f | 43 45 44 55 52 45 20 49 |D;...PRO|CEDURE I|
|00001560| 6e 73 74 61 6c 6c 57 72 | 69 74 65 4c 6e 48 6f 6f |nstallWr|iteLnHoo|
|00001570| 6b 3b 0d 43 4f 4e 53 54 | 0d 09 6b 43 6f 6e 73 6f |k;.CONST|..kConso|
|00001580| 6c 65 4e 61 6d 65 09 09 | 3d 20 27 44 65 76 3a 43 |leName..|= 'Dev:C|
|00001590| 6f 6e 73 6f 6c 65 27 3b | 0d 09 5f 43 4f 44 45 56 |onsole';|.._CODEV|
|000015a0| 09 09 09 09 3d 20 31 3b | 09 09 09 09 09 09 7b 20 |....= 1;|......{ |
|000015b0| 63 6f 6e 73 6f 6c 65 20 | 64 65 76 69 63 65 20 6e |console |device n|
|000015c0| 75 6d 62 65 72 20 7d 0d | 56 41 52 0d 09 73 6c 6f |umber }.|VAR..slo|
|000015d0| 74 3a 09 09 09 09 4c 6f | 6e 67 69 6e 74 3b 0d 09 |t:....Lo|ngint;..|
|000015e0| 6f 6c 64 50 72 6f 63 3a | 09 09 09 50 72 6f 63 50 |oldProc:|...ProcP|
|000015f0| 74 72 3b 0d 42 45 47 49 | 4e 0d 09 67 44 65 62 75 |tr;.BEGI|N..gDebu|
|00001600| 67 50 72 6f 63 4e 65 73 | 74 3a 3d 20 30 3b 0d 09 |gProcNes|t:= 0;..|
|00001610| 67 44 65 62 75 67 57 72 | 69 74 65 6c 6e 3a 3d 20 |gDebugWr|iteln:= |
|00001620| 2d 32 3b 0d 09 0d 09 50 | 46 49 4c 45 4e 41 4d 45 |-2;....P|FILENAME|
|00001630| 20 3a 3d 20 6b 43 6f 6e | 73 6f 6c 65 4e 61 6d 65 | := kCon|soleName|
|00001640| 3b 0d 09 73 6c 6f 74 20 | 3a 3d 20 5f 61 64 64 44 |;..slot |:= _addD|
|00001650| 65 76 48 61 6e 64 6c 65 | 72 28 5f 43 4f 44 45 56 |evHandle|r(_CODEV|
|00001660| 2c 20 30 2c 20 6f 72 64 | 28 40 44 65 76 46 41 63 |, 0, ord|(@DevFAc|
|00001670| 63 65 73 73 29 2c 20 6f | 72 64 28 40 44 65 76 43 |cess), o|rd(@DevC|
|00001680| 6c 6f 73 65 29 2c 20 6f | 72 64 28 40 44 65 76 52 |lose), o|rd(@DevR|
|00001690| 65 61 64 29 2c 0d 09 09 | 09 09 09 09 20 20 20 6f |ead),...|....   o|
|000016a0| 72 64 28 40 44 65 76 57 | 72 69 74 65 29 2c 20 6f |rd(@DevW|rite), o|
|000016b0| 72 64 28 40 44 65 76 49 | 6f 63 74 6c 29 29 3b 0d |rd(@DevI|octl));.|
|000016c0| 09 50 4c 73 65 74 76 62 | 75 66 28 6f 75 74 70 75 |.PLsetvb|uf(outpu|
|000016d0| 74 2c 20 4e 49 4c 2c 20 | 5f 49 4f 4c 42 46 2c 20 |t, NIL, |_IOLBF, |
|000016e0| 35 31 32 29 3b 0d 09 6f | 6c 64 50 72 6f 63 20 3a |512);..o|ldProc :|
|000016f0| 3d 20 53 65 74 47 65 74 | 50 72 6f 63 28 40 44 65 |= SetGet|Proc(@De|
|00001700| 62 75 67 52 65 61 64 4c | 6e 29 3b 0d 09 6f 6c 64 |bugReadL|n);..old|
|00001710| 50 72 6f 63 20 3a 3d 20 | 53 65 74 50 75 74 50 72 |Proc := |SetPutPr|
|00001720| 6f 63 28 40 44 65 62 75 | 67 57 72 69 74 65 4c 6e |oc(@Debu|gWriteLn|
|00001730| 29 3b 0d 45 4e 44 3b 0d | 0d 0d 0d 50 52 4f 43 45 |);.END;.|...PROCE|
|00001740| 44 55 52 45 20 53 74 61 | 72 74 44 65 62 75 67 3b |DURE Sta|rtDebug;|
|00001750| 0d 42 45 47 49 4e 0d 09 | 67 44 65 62 75 67 57 72 |.BEGIN..|gDebugWr|
|00001760| 69 74 65 6c 6e 3a 3d 20 | 67 44 65 62 75 67 57 72 |iteln:= |gDebugWr|
|00001770| 69 74 65 6c 6e 20 2b 20 | 31 3b 0d 45 4e 44 3b 0d |iteln + |1;.END;.|
|00001780| 0d 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 45 6e 64 |...PROCE|DURE End|
|00001790| 44 65 62 75 67 3b 0d 42 | 45 47 49 4e 0d 09 67 44 |Debug;.B|EGIN..gD|
|000017a0| 65 62 75 67 57 72 69 74 | 65 6c 6e 3a 3d 20 67 44 |ebugWrit|eln:= gD|
|000017b0| 65 62 75 67 57 72 69 74 | 65 6c 6e 20 2d 20 31 3b |ebugWrit|eln - 1;|
|000017c0| 0d 45 4e 44 3b 0d 0d 0d | 50 52 4f 43 45 44 55 52 |.END;...|PROCEDUR|
|000017d0| 45 20 53 65 74 44 65 62 | 75 67 4c 65 76 65 6c 28 |E SetDeb|ugLevel(|
|000017e0| 6e 65 77 4c 65 76 65 6c | 3a 20 49 4e 54 45 47 45 |newLevel|: INTEGE|
|000017f0| 52 29 3b 0d 42 45 47 49 | 4e 0d 09 67 44 65 62 75 |R);.BEGI|N..gDebu|
|00001800| 67 57 72 69 74 65 6c 6e | 3a 3d 20 6e 65 77 4c 65 |gWriteln|:= newLe|
|00001810| 76 65 6c 3b 0d 45 4e 44 | 3b 0d 0d 0d 46 55 4e 43 |vel;.END|;...FUNC|
|00001820| 54 49 4f 4e 20 20 47 65 | 74 44 65 62 75 67 4c 65 |TION  Ge|tDebugLe|
|00001830| 76 65 6c 3a 20 49 4e 54 | 45 47 45 52 3b 0d 42 45 |vel: INT|EGER;.BE|
|00001840| 47 49 4e 0d 09 47 65 74 | 44 65 62 75 67 4c 65 76 |GIN..Get|DebugLev|
|00001850| 65 6c 3a 3d 20 67 44 65 | 62 75 67 57 72 69 74 65 |el:= gDe|bugWrite|
|00001860| 6c 6e 3b 0d 45 4e 44 3b | 0d 0d 0d 7b 2d 2d 2d 2d |ln;.END;|...{----|
|00001870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|000018d0| 0d 0d 0d 45 4e 44 2e 0d | 00 00 00 00 00 00 00 00 |...END..|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 01 00 00 00 05 04 | 00 00 04 04 00 00 00 91 |........|........|
|00001910| 00 00 4e 5e 4e 75 8a 5f | 63 6f 46 41 63 63 65 73 |..N^Nu._|coFAcces|
|00001920| 73 00 00 00 4e 56 00 00 | 4e 5e 4e 75 88 5f 63 6f |s...NV..|N^Nu._co|
|00001930| 10 43 54 64 65 62 75 67 | 57 72 69 74 65 6c 6e 2e |.CTdebug|Writeln.|
|00001940| 70 64 02 00 00 00 54 45 | 58 54 4d 50 53 20 01 00 |pd....TE|XTMPS ..|
|00001950| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 a6 d6 23 c1 00 00 | 18 58 00 00 05 95 45 78 |....#...|.X....Ex|
|00001980| 69 74 00 00 4e 56 00 00 | 4e 5e 4e 75 8a 5f 66 73 |it..NV..|N^Nu._fs|
|00001990| 46 41 63 63 65 73 73 00 | 00 00 4e 56 00 00 4e 5e |FAccess.|..NV..N^|
|000019a0| 4e 75 88 5f 66 73 43 6c | 6f 73 65 00 00 00 4e 56 |Nu._fsCl|ose...NV|
|000019b0| 00 00 4e 5e 4e 75 87 5f | 66 73 52 65 61 64 00 00 |..N^Nu._|fsRead..|
|000019c0| 4e 56 00 00 4e 5e 4e 75 | 88 5f 66 73 57 72 69 74 |NV..N^Nu|._fsWrit|
|000019d0| 65 00 00 00 4e 56 00 00 | 4e 5e 4e 75 88 5f 66 73 |e...NV..|N^Nu._fs|
|000019e0| 49 6f 63 74 6c 00 00 00 | 4e 56 00 00 4e 5e 4e 75 |Ioctl...|NV..N^Nu|
|000019f0| 8a 5f 73 79 46 41 63 63 | 65 73 73 00 00 00 4e 56 |._syFAcc|ess...NV|
|00001a00| 00 00 00 20 0e 50 61 73 | 63 61 6c 20 53 79 6d 62 |... .Pas|cal Symb|
|00001a10| 6f 6c 73 00 0e 43 54 44 | 45 42 55 47 57 52 49 54 |ols..CTD|EBUGWRIT|
|00001a20| 45 4c 4e 00 00 00 03 12 | 00 43 0e 43 54 44 45 42 |ELN.....|.C.CTDEB|
|00001a30| 55 47 57 52 49 54 45 4c | 4e 00 00 00 00 00 00 00 |UGWRITEL|N.......|
|00001a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 5a 4d 6f 64 01 00 |........|..ZMod..|
|00001a70| 00 74 01 00 00 e4 00 00 | 00 00 00 00 00 00 01 00 |.t......|........|
|00001a80| 06 5f 00 00 00 00 01 00 | 03 12 00 00 00 00 a7 86 |._......|........|
|00001a90| da 7e 00 6e 00 3a 08 25 | 25 5f 49 4d 00 20 12 49 |.~.n.:.%|%_IM. .I|
|00001aa0| 4e 53 54 41 4c 4c 57 52 | 49 54 45 4c 4e 48 4f 4f |NSTALLWR|ITELNHOO|
|00001ab0| 4b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K.......|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 63 61 |........|......ca|
|00001ae0| 72 64 ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |rd......|........|
|00001af0| 01 80 01 00 04 01 00 01 | ff ff ff ff ff ff 00 43 |........|.......C|
|00001b00| 00 08 ff ff 00 00 00 00 | 00 00 00 00 00 43 0a 53 |........|.....C.S|
|00001b10| 54 41 52 54 44 45 42 55 | 47 54 45 4c 4e 48 4f 4f |TARTDEBU|GTELNHOO|
|00001b20| 4b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K.......|........|
|00001b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 74 72 |........|......tr|
|00001b50| 69 70 01 00 01 c4 01 00 | 01 54 ff ff ff ff 00 00 |ip......|.T......|
|00001b60| 01 80 01 00 04 01 00 01 | ff ff ff ff ff ff 00 74 |........|.......t|
|00001b70| 00 08 ff ff 00 00 00 00 | 00 00 00 00 00 79 08 45 |........|.....y.E|
|00001b80| 4e 44 44 45 42 55 47 45 | 47 54 45 4c 4e 48 4f 4f |NDDEBUGE|GTELNHOO|
|00001b90| 4b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K.......|........|
|00001ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 65 20 |........|......e |
|00001bc0| 2d 63 ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |-c......|........|
|00001bd0| 01 80 01 00 04 01 00 01 | ff ff ff ff ff ff 00 73 |........|.......s|
|00001be0| 00 08 ff ff 00 00 00 00 | 00 00 00 00 00 73 0d 53 |........|.....s.S|
|00001bf0| 45 54 44 45 42 55 47 4c | 45 56 45 4c 4e 48 4f 4f |ETDEBUGL|EVELNHOO|
|00001c00| 4b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K.......|........|
|00001c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 6f 72 |........|......or|
|00001c30| 74 0d ff ff ff ff 01 00 | 02 a2 ff ff ff ff 00 00 |t.......|........|
|00001c40| 01 80 01 00 04 01 00 01 | 01 00 02 34 ff ff 00 2e |........|...4....|
|00001c50| 00 0a ff ff 00 00 00 00 | 00 00 00 00 00 72 08 4e |........|.....r.N|
|00001c60| 45 57 4c 45 56 45 4c 4c | 45 56 45 4c 4e 48 4f 4f |EWLEVELL|EVELNHOO|
|00001c70| 4b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K.......|........|
|00001c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0d 0d |........|........|
|00001ca0| 70 61 ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |pa......|........|
|00001cb0| 00 10 01 00 02 00 05 74 | ff ff 00 02 00 00 00 08 |.......t|........|
|00001cc0| 65 6c 70 20 70 61 73 6d | 61 74 00 0d 0d 47 45 54 |elp pasm|at...GET|
|00001cd0| 44 45 42 55 47 4c 45 56 | 45 4c 4e 48 4f 4f 4b 00 |DEBUGLEV|ELNHOOK.|
|00001ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 73 0d 0d 4d |........|....s..M|
|00001d10| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 00 10 |........|........|
|00001d20| 01 00 05 01 00 01 ff ff | ff ff ff ff 00 74 00 08 |........|.....t..|
|00001d30| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 3e a6 ef |........|.....>..|
|00001d40| 9a 78 a7 86 da 7e a7 07 | 0f 32 00 00 ff ff ff ff |.x...~..|.2......|
|00001d50| 4a 85 08 08 00 00 00 00 | 00 00 01 00 00 54 00 01 |J.......|.....T..|
|00001d60| 00 d8 80 36 00 d8 b5 12 | 00 07 fe ee 2f 07 00 d9 |...6....|..../...|
|00001d70| 0b 70 00 d9 0e 82 00 08 | a7 86 da 7e 00 00 00 48 |.p......|...~...H|
|00001d80| 00 09 4d 6f 6e 61 63 6f | 00 ff 00 21 00 00 00 00 |..Monaco|...!....|
|00001d90| 00 00 00 60 00 06 34 e8 | 00 0a 00 13 00 00 01 8a |...`..4.|........|
|00001da0| 02 32 00 06 00 04 00 50 | 00 20 01 dd 02 3d 00 50 |.2.....P|. ...=.P|
|00001db0| 00 20 01 dd 02 3d a7 07 | 0f 32 00 00 00 00 00 00 |. ...=..|.2......|
|00001dc0| 00 00 00 00 00 00 01 00 | 00 00 00 16 00 01 00 00 |........|........|
|00001dd0| 0b c2 00 00 0b cd 0b 47 | 65 74 50 72 6f 63 4e 61 |.......G|etProcNa|
|00001de0| 6d 65 00 00 00 1e 00 50 | 00 20 01 dd 02 3d 00 50 |me.....P|. ...=.P|
|00001df0| 00 20 01 dd 02 3d 00 00 | 00 00 00 00 00 00 00 00 |. ...=..|........|
|00001e00| 00 00 00 00 00 00 01 00 | 00 00 05 04 00 00 04 04 |........|........|
|00001e10| 00 00 00 91 00 df 57 f0 | 23 42 00 00 00 1c 00 76 |......W.|#B.....v|
|00001e20| 00 01 4d 50 53 52 00 02 | 00 12 75 6e 69 74 00 02 |..MPSR..|..unit..|
|00001e30| 00 36 03 ed ff ff 00 00 | 03 7c 00 00 00 00 03 ef |.6......|.|......|
|00001e40| ff ff 00 00 03 c8 00 00 | 00 00 03 f0 ff ff 00 00 |........|........|
|00001e50| 03 e2 00 e1 af 9c 00 07 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 03 00 0a 00 00 | 00 24 00 00 00 00 00 00 |........|.$......|
|00001e70| 00 14 00 00 03 3a 00 00 | 00 00 09 55 6e 69 74 4e |.....:..|...UnitN|
|00001e80| 61 6d 65 73 09 53 79 6d | 62 54 61 62 6c 65 06 48 |ames.Sym|bTable.H|
|00001e90| 65 61 64 65 72 00 00 00 | 00 00 00 00 00 00 00 00 |eader...|........|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+